home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00041_AppTools.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  2.4 KB  |  130 lines
  1. --
  2. -- AppTools
  3. --
  4. -- a collection of general tools for application building.
  5. -- when a group starts to have a logical abstraction, create a new class!
  6.  
  7.  
  8. property ancestor
  9.  
  10.  
  11. on new me
  12.   set ancestor = new (script "SimpleAnim")
  13.   return me
  14. end
  15.  
  16.  
  17. on destruct me
  18.   killActorList (me)
  19.   if objectP (ancestor) then destruct (ancestor)
  20.   set ancestor = 0
  21. end
  22.  
  23.  
  24. on killActorList me
  25.   repeat with x in the actorList
  26.     destruct(x)
  27.     set x = 0
  28.   end repeat
  29.   set the actorList = []
  30. end
  31.  
  32.  
  33.  
  34. -- return a list of non-#empty castMembers in the passed castLibNum:
  35. -- formatted as follows: [#memberName:memberNum, #memberName:memberNum, ... ]
  36.  
  37. on getAvailableMemberList me, Lib
  38.   if not Lib then return 0
  39.   
  40.   set lst = [:]
  41.   repeat with i = 1 to 60  -- was 1000 but not currently necessary
  42.     if the type of member i of castLib Lib <> #empty then
  43.       addProp (lst, value("#" & the name of member i of castLib Lib), i) -- (do not copy over!)
  44.     end if
  45.   end repeat
  46.   
  47.   return lst
  48. end
  49.  
  50.  
  51. -- pass the number of seconds to wait:
  52.  
  53. on wait me, t
  54.   set t = t * 60
  55.   startTimer
  56.   repeat while the timer < t
  57.     updateStage
  58.   end repeat
  59. end
  60.  
  61.  
  62. -- default setUp returns TRUE (=successful)
  63.  
  64. on setUp me
  65.   return 1
  66. end
  67.  
  68.  
  69. -- return the loc of the mouse (a Lingo deficiency!)
  70.  
  71. on mouseLoc me
  72.   return point (the mouseH, the mouseV)
  73. end
  74.  
  75.  
  76.  
  77. -- make a new castMember and store information in it:
  78. -- make sure that the member does not currently exist:
  79.  
  80. on makeField me, name, val
  81.   if stringP (name) then 
  82.     set nameString = name
  83.     set name = value ("#" & name)
  84.   else
  85.     set nameString = string (name)
  86.   end if
  87.   
  88.   set tmp = getAvailableMemberList (me, "Internal")
  89.   if not getAProp (tmp, name) then
  90.     set mem = getFirstEmptyMember (me, "Internal")
  91.   else 
  92.     set mem = the memberNum of member nameString
  93.   end if
  94.   
  95.   put val into member mem of castLib "Internal"
  96.   set the name of member mem of castLib "Internal" to nameString
  97.   
  98. end
  99.  
  100.  
  101. on getFirstEmptyMember me, lib
  102.   repeat with i = 1 to 1000
  103.     if the type of member i of castLib lib = #empty then return i
  104.   end repeat
  105.   return 0
  106. end
  107.  
  108.  
  109. -- get the contents of a folder.
  110. -- return a list of file/subfolder names.
  111.  
  112. on getDirContents me, path
  113.   set lst = []
  114.   
  115.   set i = 1
  116.   repeat while TRUE
  117.     set f = getNthFileNameinFolder(path, i)
  118.     if f = "" then exit repeat
  119.     add (lst, f)
  120.     set i = i + 1
  121.   end repeat
  122.   
  123.   return lst
  124. end
  125.  
  126.  
  127. on pathChar me
  128.   if the machineType = 256 then return "\"
  129.   else return ":"
  130. end